' <Resource.inc>
' res$ = RCDATA$(rid$) ' Get raw data as a string from a resource identifier

FUNCTION RCDATA$(BYVAL rid AS STRING)
    LOCAL L1, L2 AS LONG
    LOCAL D1, D2 AS DWORD

    L1 = FindResource  (GetModuleHandle(""), (rid), BYVAL %RT_RCDATA) ' "#"+FORMAT$(rid)
    D2 = SizeofResource(GetModuleHandle(""), L1)
    L2 = LoadResource  (GetModuleHandle(""), L1)
    D1 = LockResource  (L2)

    FUNCTION = PEEK$(D1,D2)
END FUNCTION